home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-26 | 593 b | 30 lines | [TEXT/ScoM] |
- ; tutorial example 4 - mctest4
-
- (defsym a '(b c a))
- (defsym b '(f e))
- (defsym c '(b a))
- (defsym d '(a g))
-
- (def-symbol
- test1 (gen-notrans a 4)
- test2 (gen-notrans d 4)
- test3 (gen-notrans c 4)
- test4 (gen-notrans b 4)
- )
-
- (def-length
- default '1/16
- )
-
- (setq tonals (activate-tonality (whole-tone c 5) (chromatic c 6)))
-
- (compile-song-p "ccl;output:" 1/4 "part4"
-
- ; |---|---|---|---|
- changes tonals " . . . . "
- test1 changes "- -- -- -- - -"
- test2 changes " - -- - - - - "
- test3 changes " - -- -- - - -"
- test4 changes " ---- - --- --"
- )
-